home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / butt01.zip / NOTHING.PRG < prev    next >
Text File  |  1993-01-04  |  1KB  |  29 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: NOTHING.PRG
  4. *:
  5. *:         System: Specialty Contracting Software
  6. *:         Author: Charles Alan Butler
  7. *:      Copyright (c) 1988, Charles Alan Butler
  8. *:  Last modified: 07/09/88     14:33
  9. *:
  10. *:      Called by: GC_MEN         (procedure in STARTPRG.PRG)
  11. *:               : MAT_MEN        (procedure in STARTPRG.PRG)
  12. *:               : SERV2          (procedure in STARTPRG.PRG)
  13. *:               : GC_QRYQ                       
  14. *:               : REM_CMD        (procedure in R_MAINT.PRG)
  15. *:
  16. *:      Documented 05/14/89 at 18:08               FoxDoc  version 1.0
  17. *:*********************************************************************
  18. *--- this is a do nothing loop
  19. CLEAR
  20. SET COLOR TO R/W
  21. @ 10,10 CLEAR TO 15,59
  22. @ 10,11 TO 15,58 DOUBLE
  23. @ 12,14 SAY "This function is unavailable at this time."
  24. @ 13,22 SAY "Press any key to continue."
  25. SET COLOR TO BG/N
  26. ans=INKEY(wt)
  27. RETURN
  28. *: EOF: NOTHING.PRG
  29.